﻿'Hacemos una referencia al proyecto de acceso a datos
Imports DataAccessLayer
'Hacemos una referencia al proyecto BusinessEntitites
Imports BE = BusinessEntities

Public Class OpcionesBL

    'Instanciamos la clase OpcionesDAO
    Dim opciones As New OpcionesDAO

    Public Function ListarOpciones() As DataSet

        Return opciones.ListarOpciones

    End Function

    Public Function EliminarOpcion(ByVal objeto As BE.OpcionesBE) As Boolean

        Return opciones.EliminarOpcion(objeto)

    End Function

    Public Function RegistrarOpcion(ByVal objeto As BE.OpcionesBE) As String

        Return opciones.RegistrarOpcion(objeto)
    End Function

    Public Function ActualizarOpcion(ByVal objeto As BE.OpcionesBE) As String

        Return opciones.ActualizarOpcion(objeto)

    End Function

    Public Function BuscarOpcion(ByVal objeto As BE.OpcionesBE) As DataSet

        Return opciones.BuscarOpcion(objeto)
    End Function

    Public Function ChapaError() As String
        Return opciones.ChapaError
    End Function


End Class
